(finder-commentary): Use buffer *Finder-package*.

diff --git a/lisp/finder.el b/lisp/finder.el
index fe3460b2169e0ac44f7955c461d53cac720776d3..7aaf99b811e355a993e90f9414d7c9976d328f4d 100644 (file)
--- a/lisp/finder.el
+++ b/lisp/finder.el
@@ -273,7 +273,9 @@ FILE should be in a form suitable for passing to `locate-library'."
   (let* ((str (lm-commentary (find-library-name file))))
     (if (null str)
        (error "Can't find any Commentary section"))
-    (pop-to-buffer "*Finder*")
+    ;; This used to use *Finder* but that would clobber the
+    ;; directory of categories.
+    (pop-to-buffer "*Finder-package*")
     (setq buffer-read-only nil)
     (erase-buffer)
     (insert str)